<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../../Connections/sslphrc.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_sslphrc_STRING
Recordset1.Source = "SELECT paymentID, paymentName, paymentRetreat  FROM dbo.rrcPayments  ORDER BY paymentRegDate DESC;"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<%
Dim MM_paramName 
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth

Dim MM_removeList
Dim MM_item
Dim MM_nextItem

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
  MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If

MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
  End If
Next

' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
  End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then 
  MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "")  Then
  MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
  MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function
%>
<html><!-- #BeginTemplate "/Templates/rrc_detail.dwt" --><!-- DW6 -->
<head>
<meta name="description" content="Once the exclusive domain of monastics and clerics, 
retreats have become commonplace in the spiritual journey of the laity. 
In a world where it has become difficult to find the holy, retreats provide the space and 
time to rediscover the mystery of being loved by God. There is no right or wrong way to 
make a retreat; there is simply the individual and God, and a mysterious deepening of one's 
love for God.">
<meta name="keywords" content="retreats, spiritual journey, laity, love for God, renewal, 
Redemptorists, Milwaukee, Wisconsin, Chicago, Illinois, Madison, spiritual renewal, 
holiness, Jesus Christ, Christianity, St. Alphonsus, Liguori, poor, marginalized, missions, 
evangelize, evangelization, Catholic, Catholicism, saints, Holy Spirit, God, mystery, Celtic
Spirituality, Contemplative, Franciscan, Sacraments, personal growth, spiritual enrichment, vocations
priests, CSSR, cssr">
<!-- #BeginEditable "doctitle" -->
<title>Retreat Registration List</title>
<!-- #EndEditable -->
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">
<!--
function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}
//-->
</script>
</head>

<body bgcolor="#F9F7ED" text="#000000" onLoad="MM_preloadImages('../../images/logohome2.gif')">
<table width="90%" border="0" cellspacing="0" cellpadding="0" height="800" align="center">
  <tr> 
    <td rowspan="2" valign="top" height="250" width="20%"> <!-- #BeginLibraryItem "/library/leftmenu.lbi" --><table width="55%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          
    <td><a href="../../Default.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image20','','../../images/logohome2.gif',1)"><img src="../../images/logohome.gif" alt="Redemptorist Retreat Center" name="Image20" width="144" height="136" border="0"></a></td>
        </tr>
        <tr> 
          
    <td><a href="../../our_mission.htm"><img src="../../images/missionside.gif" alt="The Mission of the Redemptorist Retreat Center" width="144" height="29" border="0"></a></td>
        </tr>
        <tr> 
          
    <td><a href="../../news.asp"><img src="../../images/newsside.gif" alt="Redemptorist Retreat Center News" border="0"></a></td>
        </tr>
        <tr> 
          
    <td><a href="../../spiritual_growth.asp"><img src="../../images/spiritualside.gif" alt="Spiritual Growth Programs at the Redemptorist Retreat Center" width="144" height="28" border="0"></a></td>
        </tr>
        <tr> 
          <td><a href="../../preached_retreats.asp"><img src="../../images/preachedside.gif" border="0" width="144" height="27"></a></td>
        </tr>
        <tr> 
          
    <td><a href="../../personal_retreats.asp"><img src="../../images/personalside.gif" alt="Personal Retreats at the Redemptorist Retreat Center" width="144" height="27" border="0"></a></td>
        </tr>
        <tr> 
          
    <td><a href="../../couples.asp"><img src="../../images/marriedside.gif" alt="Married Couple Retreats at the Redemptorist Retreat Center" width="144" height="27" border="0"></a></td>
        </tr>
        <tr> 
          
    <td><a href="../../redemptorists.htm"><img src="../../images/redemptside.gif" alt="About the Redemptorists" width="144" height="27" border="0"></a></td>
        </tr>
        <tr> 
          
    <td><a href="../../facility_tour.htm"><img src="../../images/tourside.gif" alt="Tour the Facility at the Redemptorist Retreat Center" width="144" height="28" border="0"></a></td>
        </tr>
        <tr> 
          
    <td><a href="../../staff.asp"><img src="../../images/staffside.gif" alt="Meet the Staff of the Redemptorist Retreat Center" width="144" height="28" border="0"></a></td>
        </tr>
        <tr> 
          
    <td><a href="../../help_needed.htm"><img src="../../images/helpside.gif" alt="Volunteers Needed at the Redemptorist Retreat Center" width="144" height="27" border="0"></a></td>
        </tr>

      </table>
<!-- #EndLibraryItem --></td>
    <td width="85%"><!-- #BeginEditable "Banner" -->
      <h3 align="center">Retreat Registration List</h3>
    <!-- #EndEditable --></td>
  </tr>
  <tr> 
    <td width="85%" height="528" valign="top"><!-- #BeginEditable "Body" -->
    <table align="center" cellpadding="3" cellspacing="3">
      <tr>
        <td><strong>Retreatant Name</strong></td>
        <td><strong>Retreat Date/Time</strong></td>
      </tr>
      <% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %>
      <tr>
        <td><A href="registration.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "ID=" & Recordset1.Fields.Item("paymentID").Value %>"><%=(Recordset1.Fields.Item("paymentName").Value)%></A></td>
        <td><%=(Recordset1.Fields.Item("paymentRetreat").Value)%></td>
      </tr>
      <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset1.MoveNext()
Wend
%>
    </table>
    <!-- #EndEditable --></td>
  </tr>
  <tr> 
    <td width="15%">&nbsp;</td>
    <td width="85%"> 
      <table width="50%" border="0" cellspacing="0" cellpadding="0" align="center" valign="top">
        <tr> 
          <td width="40%"align="right" valign="middle"><a href="../../calendar.htm"><img src="../../images/calendar.gif" width="101" height="29" border="0"></a></td>
          <td width="20%" align="center" valign="middle"><a href="../../feedback.htm"><img src="../../images/feedback.gif" width="102" height="29" border="0"></a></td>
          <td width="40%" align="left" valign="middle"><a href="../../location.htm"><img src="../../images/map.gif" width="103" height="29" border="0"></a></td>
        </tr>
 
      </table><table width="50%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr align="center"> 
          <td align="right" valign="middle" width="50%"> 
            <div align="right"><a href="https://secure6.appliedi.net/rretreat/ssl/register.asp"><img src="../../images/registration.gif" width="103" height="30" border="0"></a></div>
          </td>
          <td align="left" valign="middle" width="50%"> 
            <div align="left"><a href="../../search.htm"><img src="../../images/search.gif" width="104" height="31" align="middle" border="0"></a></div>
          </td>
        </tr>
      </table>
      
    </td>
  </tr>
</table>
</body>
<!-- #EndTemplate --></html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
